home *** CD-ROM | disk | FTP | other *** search
/ Power CD-ROM!! 8 / Power CD-ROM 8.iso / windows / sstiles / disk1 / setup.mst < prev    next >
Text File  |  1993-12-06  |  6KB  |  215 lines
  1. '**************************************************************************
  2. '*             Intel Smart Video Recorder(TM) Screen Saver setup
  3. '**************************************************************************
  4.  
  5. '$INCLUDE 'setupapi.inc'
  6. '$INCLUDE 'mscpydis.inc'    ''System
  7. '$INCLUDE 'msdetect.inc'    ''Detects Avalilable Disk Space
  8.  
  9. ''Dialog ID's
  10. CONST WELCOME       = 100
  11. CONST ASKQUIT       = 200
  12. CONST DESTPATH      = 300
  13. CONST EXITFAILURE   = 400
  14. CONST EXITQUIT      = 600
  15. CONST EXITSUCCESS   = 700
  16. CONST OPTIONS       = 800
  17. CONST APPHELP       = 900
  18. CONST ACTIVATED        = 1000
  19. CONST APPHELP2      = 1500
  20. CONST APPHELP3      = 1700
  21. CONST CHECK         = 2500
  22. CONST TOOBIG        = 6300
  23. CONST BADPATH       = 6400
  24.  
  25. ''Bitmap ID
  26. CONST LOGO = 1
  27.  
  28. ''Disk Sizes
  29.  
  30. GLOBAL File1
  31. GLOBAL File2
  32. GLOBAL WantedDiskSize&
  33.  
  34. ''File Types
  35. GLOBAL DEST$        ''Default destination directory.
  36. GLOBAL WINDRIVE$    ''Windows Drive Letter.
  37. GLOBAL OPTCUR$      ''Option selection from option dialog.
  38. GLOBAL DRIVE$        ''Drive being installed to
  39. GLOBAL CHECKSTATES$
  40. GLOBAL RUNTIME$
  41. GLOBAL AVITOOLS$
  42. GLOBAL MDKTOOLS$
  43. GLOBAL TOOLS$
  44.  
  45. ''start install procedure indicator
  46. GLOBAL WinVfw$        ''Windows Video For Windows old Indeo driver path and file name
  47. GLOBAL IFileExists
  48.  
  49. SrcDir$ = GetSymbolValue("STF_SRCDIR")
  50. WinDir$ = GetWindowsDir()
  51. WinSysDir$ = GetWindowsSysDir()
  52. ControlSpec$ = "Screen Saver.Intel Tiles Screen Saver"
  53.  
  54. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  55.  
  56. INIT:
  57.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  58.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  59.  
  60.     MajorVer% = GetWindowsMajorVersion()
  61.     MinorVer% = GetWindowsMinorVersion()
  62.  
  63.     IF  MajorVer% < 3 OR (MajorVer% = 3 AND MinorVer% < 10) THEN
  64.     i% = DoMsgBox("Microsoft Windows version 3.10 or greater is required for this software.  Please upgrade your version of Windows.", "Installation Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  65.         END
  66.     END IF
  67.  
  68.     SetBitmap CUIDLL$, LOGO
  69.     SetTitle "Intel Tiles Screen Saver"
  70.  
  71.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  72.     IF szInf$ = "" THEN
  73.         szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  74.     END IF
  75.     ReadInfFile szInf$
  76.  
  77.     DEST$ = "C:\SSTILES"
  78.     WINDRIVE$ = MID$(WinDir$, 1, 1)
  79.  
  80. WELCOME:
  81.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  82.     IF sz$ = "CONTINUE" THEN
  83.         UIPop 1
  84.     ELSE
  85.         GOSUB ASKQUIT
  86.         GOTO WELCOME
  87.     END IF
  88.  
  89. GETPATH:
  90.     SetSymbolValue "EditTextIn", DEST$
  91.     SetSymbolValue "EditFocus", "END"
  92. GETPATHL1:
  93.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  94.     DEST$ = GetSymbolValue("EditTextOut")
  95.     DRIVE$ = MID$(DEST$, 1, 1) 
  96.  
  97.     IF sz$ = "CONTINUE" THEN
  98.         IF IsDirWritable(DEST$) = 0 THEN
  99.             GOSUB BADPATH
  100.             GOTO GETPATHL1
  101.         END IF
  102.         UIPop 1
  103.     ELSEIF sz$ = "REACTIVATE" THEN
  104.         GOTO GETPATHL1
  105.     ELSE
  106.         GOSUB ASKQUIT
  107.         GOTO GETPATH
  108.     END IF
  109.  
  110.     IFileExists = 0
  111.  
  112. ClearCopyList
  113.  
  114.         WantedDiskSize&=1024000
  115.  
  116.         DiskSize&=GetFreeSpaceForDrive(DRIVE$)
  117.  
  118.         If WantedDiskSize& > DiskSize& then
  119.             GOSUB TOOBIG
  120.             ERROR STFQUIT
  121.         EndIf
  122.  
  123. '' Setting Screen Saver files to  be copied
  124.         CreateDir DEST$, cmoNone
  125.         AddSectionFilesToCopyList "Screen Saver Other", SrcDir$, DEST$
  126.         AddSectionFilesToCopyList "Screen Saver Main", SrcDir$, WinDir$
  127.  
  128. CopyFilesInCopyList
  129.  
  130. ''Updating .INI files for screen saver
  131. ''
  132.         CreateIniKeyValue WinDir$ + "control.ini", ControlSpec$, "DemoPath", DEST$, cmoOverwrite
  133.         CreateIniKeyValue WinDir$ + "control.ini", ControlSpec$, "PWProtected", "0", cmoOverwrite
  134.         CreateIniKeyValue WinDir$ + "system.ini", "boot", "SCRNSAVE.EXE", WinDir$ + "sstiles.scr", cmoOverwrite
  135.         CreateIniKeyValue "WIN.INI", "windows", "ScreenSaveActive", "1", cmoOverwrite
  136.         CreateIniKeyValue "WIN.INI", "windows", "ScreenSaveTimeOut", "60", cmoOverwrite
  137.  
  138. SCREENSAVE_ACTIVE:
  139.     sz$ = UIStartDlg(CUIDLL$, ACTIVATED, "FInfoDlgProc", APPHELP, HELPPROC$)
  140.  
  141. QUIT:
  142.     ON ERROR GOTO ERRQUIT
  143.  
  144.     IF ERR = 0 THEN
  145.         dlg% = EXITSUCCESS
  146.     ELSEIF ERR = STFQUIT THEN
  147.         dlg% = EXITQUIT
  148.     ELSE
  149.         dlg% = EXITFAILURE
  150.     END IF
  151. QUITL1:
  152.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  153.     IF sz$ = "REACTIVATE" THEN
  154.         GOTO QUITL1
  155.     END IF
  156.     UIPop 1
  157.  
  158.     END
  159.  
  160. ERRQUIT:
  161.     i% = DoMsgBox("Setup sources were corrupted, call the included support number", "Setup Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  162.     END
  163.  
  164. BADPATH:
  165.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  166.     IF sz$ = "REACTIVATE" THEN
  167.         GOTO BADPATH
  168.     END IF
  169.     UIPop 1
  170.     RETURN
  171.  
  172. ASKQUIT:
  173.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  174.  
  175.     IF sz$ = "EXIT" THEN
  176.         UIPopAll
  177. ''        ERROR STFQUIT
  178.         END
  179.     ELSEIF sz$ = "REACTIVATE" THEN
  180.         GOTO ASKQUIT
  181.     ELSE
  182.         UIPop 1
  183.     END IF
  184.     RETURN
  185.  
  186. TOOBIG:
  187.     sz$ = UIStartDlg(CUIDLL$, TOOBIG, "FInfo0DlgProc", 0, "")
  188.     IF sz$ = "REACTIVATE" THEN
  189.         GOTO TOOBIG
  190.     END IF
  191.     UIPop 1
  192.     RETURN
  193.  
  194. '**
  195. '** Purpose:
  196. '**     Appends a file name to the end of a directory path,
  197. '**     inserting a backslash character as needed.
  198. '** Arguments:
  199. '**     szDir$  - full directory path (with optional ending "\")
  200. '**     szFile$ - filename to append to directory
  201. '** Returns:
  202. '**     Resulting fully qualified path name.
  203. '*************************************************************************
  204. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  205.     IF szDir$ = "" THEN
  206.         MakePath = szFile$
  207.     ELSEIF szFile$ = "" THEN
  208.         MakePath = szDir$
  209.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  210.         MakePath = szDir$ + szFile$
  211.     ELSE
  212.         MakePath = szDir$ + "\" + szFile$
  213.     END IF
  214. END FUNCTION
  215.